Public Sub mNascondi()
With Worksheets("Foglio1")
.Visible = xlSheetVeryHidden
End With
End Sub
Public Sub mScopri()
With Worksheets("Foglio1")
.Visible = xlSheetVisible
End With
End Sub
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
Ciao Mauro e grazie per la risposta, ma purtoppo non funziona, già
avevo provato, mi da sempre lo stesso messaggio, questo è un foglio
nascosto che contiene una data, per un file demo, a scadenza, quindi
il foglio non sò che impostazione gli sia stata data, per dare sempre
lo stesso errore o messaggio, non ti permette di accedere al foglio,
ha una macro nel ThisWorkbook che legge nel foglio per il confronto
data, ma non permette di accederci, non c'era niente nel foglio era
solo per dimostrazione, ma non e spiegato, come fare per creare un
foglio con queste caratteristiche, il codice del foglio è visibile ed
e bianco, il foglio nelle proprietà, alla voce visible e settato
"xlHidden"
se vuoi ti posso mandare il file, fammi sapere oppure altre opzioni,
se è possibile Ciao Sal
C
Sei sicuro del nome del file?
Ciao Mauro
che dici che avrà qualche file tipo personal collegato, ma non compare
nei project del VBA, poi anche se lo rinomino mantiene le stesse
caratteristiche, se fosse collegato a qualche file, dovrebbe dare
errore di qualche genere tipo mancanza di collegamento dati esterni,
Ma niente di tutto questo.
non so più cosa pensare per arrivare a capire il problema, fosse
interessante, per creare file protetti, un foglio del genere per
lanciare qualche macro di azzeramento dati
Ciao Sal