Membuat tombol PDF dengan vb di excel

Insert CommandButton dan masukkan kode vb di bawah ini


Private Sub CommandButton1_Click()
PageSetup.PaperSize = xlPaperA4
NamaFile = Range("E94").Value
ActiveSheet.Range("A1:K160").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\PDF\" & NamaFile, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    DoEvents
    MsgBox "Sudah di simpan di PDF"
End Sub

Membuat Gambar JPG di EXcel dengan vb

Cara buat gambar dari Range tertentu dengan macro sebagai berikut :
Insert button dan tulis kode berikut

Private Sub CommandButton1_Click()
                  'Set Rentang Anda ingin ekspor ke file
Dim rgExp As Range: Set rgExp = Worksheets("KARTU").Range("A89:K115")
                 'Salin kisaran sebagai gambar ke Clipboard
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
               '' 'Buat grafik kosong dengan ukuran yang tepat dari berbagai disalin
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=rgExp.Width, Height:=rgExp.Height)
.Name = "ChartVolumeMetricsDevEXPORT"
.Activate
End With
                  '' 'Paste ke daerah grafik, ekspor ke file, menghapus grafik.
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export ActiveWorkbook.Path & "\GAMBAR\KARTU.jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
End Sub

Mermbuat Print gak fungsi atau Error dengan Vb

Nah untuk membuat Print gak berfungsi bisa coba memasukkan scrib ini pada
Thisworkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "Di larang cetak File ini ", vbOKOnly, “Error” End Sub

Membuat Tombol close (X) worksheet gak berfungsi di Excel dengan VB

Nah untuk membuat Tombol close (X) worksheet gak berfungsi bisa coba memasukkan scrib ini pada 

Thisworkbook
Public myFlg As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Letakkan ini pada "ThisWorkbook"
If myFlg = True Then Exit Sub
Application.DisplayAlerts = False
Cancel = True
End Sub
Sub myClose()
myFlg = True
Application.DisplayAlerts = False
ActiveWindow.Close False
End Sub