[poweriade]

Jak ustawić to makro, na odkrywanie wybranych sheetsów, żeby box wyboru, które ma odkryć, a które nie włączał się automatycznie z uruchomieniem pliku?

Sub UnhideSelectedSheets()
Dim wks As Worksheet
Dim MsgResult As VbMsgBoxResult

For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = xlSheetHidden Then
MsgResult = MsgBox("Unhide sheet " & wks.Name & "?", vbYesNo, "Unhiding worksheets")
If MsgResult = vbYes Then wks.Visible = xlSheetVisible
End If
Next
End Sub

#excel #makro #vba #programowanie

[brak_nicku]

@poweriade: trzeba kod umieścić w obsłudze zdarzenia Open skoroszytu:

[brak_nicku]

Option Explicit

Private Sub Workbook_Open()
.....
End Sub

@poweriade: **kod musi być umieszczony w module Ten_skoroszyt**