Terimakasih mas agus atas jawabannya.. Sudah sesuai dg harapan mas.. Oiya mas..satu lagi,trus terang kode vba saya itu hasil googling sana sini dimana ketika membuka file otomatis file itu terkunci sendiri mas.agar tidak serta merta otomatis mengunci bagian mana dari kode vba itu yg hrus ditambah atau dihapus mas.. Atas bimbingannya saya sampaikan terimakasih
Pada tanggal 9 Mei 2017 2.50 PM, "nangagus nanga...@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: > > > Wasalamualaikum warahmatullah. > > bagaimana kalau VBA miliknya ribbon diganti begini: > > Sub coba(ribbon As IRibbonControl) > Sheet4.Visible = xlSheetVisible > Sheet1.Visible = xlSheetVeryHidden > Sheet2.Visible = xlSheetVeryHidden > Sheet3.Visible = xlSheetVeryHidden > End Sub > Sub DATA(ribbon As IRibbonControl) > Sheet2.Visible = xlSheetVisible > Sheet1.Visible = xlSheetVeryHidden > Sheet3.Visible = xlSheetVeryHidden > Sheet4.Visible = xlSheetVeryHidden > End Sub > Sub siswa(ribbon As IRibbonControl) > Sheet3.Visible = xlSheetVisible > Sheet1.Visible = xlSheetVeryHidden > Sheet2.Visible = xlSheetVeryHidden > Sheet4.Visible = xlSheetVeryHidden > End Sub > > > atau dapat diganti begini: > > Sub coba(ribbon As IRibbonControl) > Dim w As Worksheet > Sheet4.Visible = xlSheetVisible > For Each w In Worksheets > If w.Name <> "COBA" Then > w.Visible = xlSheetVeryHidden > End If > Next w > End Sub > > salam, selamat mencoba > > Nang agus > > On 09/05/17 09.21, farud oke farud....@gmail.com [belajar-excel] wrote: > > > > Assalamualaikum.. > Mohon bantuan para master sekalian.. > Saya punya file yg menggunakan link ribbon.awal mula link-nya bisa > dijalankan tapi ketika saya memberikan script VBA di module,link ribbon yg > semula bisa jadi tidak bisa..script VBA-ny sbb: > Public Sub Percobaanku(NamaSheet As String) > Dim sh As Worksheet > Application.ScreenUpdating = False > Sheets(NamaSheet).Visible = 1 > For Each sh In ThisWorkbook.Worksheets > If Not sh.Name = NamaSheet Then > sh.Visible = 2 > End If > Next sh > Application.ScreenUpdating = True > End Sub > Sub Auto_Open() > Dim sh As Worksheet > > Percobaanku "DATA" > Application.ScreenUpdating = False > > For Each sh In ThisWorkbook.Worksheets > If sh.Name <> "awas" Then > sh.Protect Rahasia > End If > Next sh > Application.ScreenUpdating = True > > End Sub > Sub Auto_Close() > Dim sh As Worksheet > > Application.ScreenUpdating = False > For Each sh In ThisWorkbook.Worksheets > If sh.Name <> "awas" Then > sh.Unprotect Rahasia > End If > Next > > > > Percobaanku "awas" > ThisWorkbook.Save > Application.DisplayAlerts = False > Application.ScreenUpdating = True > ThisWorkbook.Close > End Sub > Untuk lebih jelasnya file terlampir.. > Atas bantuan para master sekalian saya sampaikan terimakasih > > > >
