Creare un file Excel con fogli visibili in base all'accesso

[JanVathek]

Ciao

È possibile creare un file Excel in cui, se aperto con una password, si vedono 3 schede, mentre se aperto in sola lettura (senza inserire la password), solo 2 schede sono visibili e una rimane nascosta. Ecco come puoi farlo:
Il file ha 3 schede (ad esempio, "Master", "caso1" e "caso2").

ci deve essere una macro dietro a ciò?

Il file master è il file che comanda, il file caso 1 riporta solo in lettura quanto scritto sul master ma con dei filtri

Ho protetto la struttura con password e il vba con password ed ho provato a mettere questa macro ma no nva mi da error time error 101

Codice: Seleziona tutto

Private Sub Workbook_Open()
    If Not ThisWorkbook.ReadOnly Then
        Sheets("master").Visible = True
    Else
        Sheets("master").Visible = False
    End If
End Sub

[Anthony47]

Si, si puo' fare solo con macro (come hai fatto tu)

Quanto all'errore, potrebbe essere che il file sia salvato in una directory "non affidabile"; prova a dichiarare la directory "affidabile":
-Menu /Opzioni /Centro protezione; impostazione Centro protezione /Posizioni attendibili.
Se il percorso attuale del file non e' attendibile, prova a spostarlo in una directory "attendibile"; oppure dichiari la directory Attendibile tramite il pulsante Aggiungi Nuova Posizione. Oppure (piu' prudentemente) puoi dichiarare quel file Attendibile tramite il sottomenu Documenti attendibili

Fai sapere...
(e se non risolvi indica bene il codice di errore e su quale istruzione)

[Milanooooo]

ciao

sul punto sopra dice questo "consenti di considerare attendibile il percorso" ed ho messo attendibile

errore run time "1004! impossibile impostare la proprietà visibile per la classe worksheet" la struttura è ovviamente protetta da password perchè nessuno può scoprire il file solo se entro direttamente con password

ho usato questo codice , ma continua a non funzionare con lo stesso errore

Codice: Seleziona tutto

Private Sub Workbook_Open()
    If ThisWorkbook.ReadOnly Then
        Sheets("Foglio3").Visible = xlSheetVeryHidden
    Else
        Sheets("Foglio3").Visible = xlSheetVisible
    End If
End Sub


ps

purtroppo ho dovuto creare un secondo account, non mi fa resettare la password dicendomi è sbagliata( ma ho un salva password) e non mi arriva la password di reset ( il codice su sfondo blu è difficile da leggere)

[Anthony47]

Ho protetto la struttura con password

Questa impostazione impedisce di visualizzare /nascondere fogli.
Se vuoi tenerla, devi sproteggere e riproteggere all'interno della Workbook_Open; tipo:

Codice: Seleziona tutto

Private Sub Workbook_Open()
ThisWorkbook.Unprotect Password:="pippo"
    If Not ThisWorkbook.ReadOnly Then
        Sheets("master").Visible = xlSheetVisible
    Else
        Sheets("master").Visible = xlSheetVeryHidden
    End If
ThisWorkbook.Protect Password:="pippo"
End Sub


Quanto ai problemi di login, questo forum ha due posizioni di login: se usi il secondo (poco prima dell'elenco delle discussioni) dovresti avere meno problemi col captcha

[Milanooooo]

Ho protetto la struttura con password

Codice: Seleziona tutto

Private Sub Workbook_Open()
ThisWorkbook.Unprotect Password:="pippo"
    If Not ThisWorkbook.ReadOnly Then
        Sheets("master").Visible = xlSheetVisible
    Else
        Sheets("master").Visible = xlSheetVeryHidden
    End If
ThisWorkbook.Protect Password:="pippo"
End Sub


quando si chiude il file automaticamente torna protetto?

ora da errore run time 9, indice non incluso nell intervallo
la macro l'ho inserita nel docs generale e non nel foglio master

[Anthony47]

Come vedi la macro ripristina la protezione a livello di Workbook prima del suo completamento:

Codice: Seleziona tutto

ThisWorkbook.Protect Password:="pippo"


(ovviamente invece di "pippo" userai la tua password)

Il codice va inserito nel modulo vba ThisWorkbook /QuestaCartellaDi Lavoro, essendo una macro di evento di Workbook

[Milanooooo]

si si avevo inserito la passowrd in entrambi ma da sempre
errore run time 9, indice non incluso nell intervallo

il vba l'ho altresi protetto con passowd può influire ciò?

[Anthony47]

Se la struttura e' stata sprotetta (si vede sul tab Revisione del ribbon), se il nome foglio su cui si verifica l'errore esiste, se la directory in cui il file e' posizionato e' dichiarata "Attendibile", se il codice e' stato inserito nel modulo ThisWorkbook /QuestaCartellaDiLavoro del file che stai aprendo, allora non so che dire...
Prova a eseguire manualmente la macro e dimmi quale e' il comportamento: accedi al modulo ThisWorkbook /QuestaCartellaDiLavoro, selezioni una riga di codice, premi F8; ad ogni F8 verrà eseguita la riga evidenziata

La protezione del codice vba non ha impatto

[Milanooooo]

funziona era il nome sbagliato del foglio

grazie