detto che la protezione in qualunque modo sia stata realizzata in excel è facilmente violabile e che proteggere serve SOLO e ESCLUSIVAMENTE ad impedire cancellazioni accidentali passiamo a farti uno schema sul quale lavorare:
1. proteggi il progetto con PSW
2. proteggi i vari fogli ove ti occorre
3. crea un nuovo foglio di nome "BASE" ("Menu" o come vuoi)
4. all'apertura tutti i fogli saranno nascosti (con "VeryHidden") sarà visibile solo "BASE"
5. se le macro non vengono attivate non si potrà vedere nulla tranne BASE, non si potrà andare nel codice (sempre a meno di violazioni di chi vuole a tutti i costi aprire il file)
6. chiedere una PSW per scoprire tutti i fogli
7. lavorare sul file
8. alla chiusura si nascondono tutti i fogli lasciando visibile solo "Base"
per nascondere/scoprire i fogli si utilizzerà il ciclo di prima
- Codice: Seleziona tutto
Option Compare Text
Sub Nascondi()
Dim I As Integer
For I = 1 To Worksheets.Count
' If UCase(Sheets(I).Name) <> "BASE" Then
If Sheets(I).Name <> "BASE" Then
On Error Resume Next
Sheets(I).Visible = xlSheetVeryHidden ' 2
End If
Next I
End Sub
Sub Scopri()
Dim I As Integer
For I = 1 To Worksheets.Count
If Sheets(I).Name <> "BASE" Then
On Error Resume Next
Sheets(I).Visible = xlVisible ' -1
End If
Next I
End Sub
Adesso vai avanti tu