Untuk menampilkan Shet woorkbook dari form dan menutup form
scriptnya yaitu :
Private Sub CommandButton47_Click() 'sesuaikan dengan nama button
Application.Visible = False
DATA.Hide
Worksheets("PEMETAANKD1").Activate
Application.Visible = True
Application.DisplayFormulaBar = False 'hilangkan jika tidak ingin menggunakan pengaturan full secreen
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Application.DisplayFullScreen = True
End Sub
Menutup work book dan membuka form tertentu
kodenya :
Sub homes()
Application.Visible = False
HOME.Show
Application.Visible = True
End Sub
melarang orang keluar dari x form
untuk mengarahkan seseorang untuk keluar di button tertentu
scriptnya yaitu :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
Login.Caption = "Klik tombol KELUAR By sam agustiadi!"
End Sub
Subscribe to:
Post Comments (Atom)
Post A Comment:
0 comments: