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

[Milanooooo]

ho un dubbio

se uno sul suo pc non attiva le macro o ha la protezione della macro dove si chiede .....entrando vede il file nascosto?

[Anthony47]

Se le macro non sono in esecuzione allora il file si aprirà come era stato salvato l'ultima volta.
Potresti valutare un meccanismo per cui al salvataggio venga sempre nascosto il foglio Master; ad esempio puoi usare l'evento BeforeSave per nascondere il foglio e poi AfterSave per ripristinarlo (se era visibile), tipo con questo codice (da inserire nel modulo ThisWorkbook /QuestaCartellaDiLavoro):

Codice: Seleziona tutto

Dim VorH   'In testa a ThisWorkbook /QuestaCartellaDiLavoro

'------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
VorH = Sheets("master").Visible
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = xlSheetVeryHidden
ThisWorkbook.Protect Password:="pippo"
End Sub

'------------
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = VorH
ThisWorkbook.Protect Password:="pippo"
Saved = True
End Sub


Fai attenzione alla Dim VorH, che deve essere posizionato "In testa a ThisWorkbook /QuestaCartellaDiLavoro", prima di qualsiasi Sub o Function

Prova, ma tieni sempre presente che questo tipo di protezione e' idonea piu' che altro a proteggere da distrazioni, non da malintenzionati

[Milanooooo]

se compilo tutto da errore Errore 50290, metodo unprotect dell'ccetto "work book", ho visto che quando salva nasconde automaticamente il foglio

Codice: Seleziona tutto


Dim VorH   'In testa a ThisWorkbook /QuestaCartellaDiLavoro

'------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
VorH = Sheets("master").Visible
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = xlSheetVeryHidden
ThisWorkbook.Protect Password:="pippo"
End Sub

'------------
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = VorH
ThisWorkbook.Protect Password:="pippo"
Saved = True
End Sub

e sotto mettere  o è gia inglobata sopra?

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



[Anthony47]

ho visto che quando salva nasconde automaticamente il foglio

L'obiettivo del codice e' proprio quello

se compilo tutto da errore Errore 50290, metodo unprotect dell'ccetto "work book"

Mi fai vedere l'intero contenuto del modulo ThisWorkbook /QuestaCartellaDiLavoro, quale istruzione va in errore e in che momento compare l'errore?

[Milanooooo]

ho visto che quando salva nasconde automaticamente il foglio

L'obiettivo del codice e' proprio quello

vorrei lo facesse prima che chiudi il foglio non quando salvi e sparisce

se compilo tutto da errore Errore 50290, metodo unprotect dell'ccetto "work book"

Mi fai vedere l'intero contenuto del modulo ThisWorkbook /QuestaCartellaDiLavoro, quale istruzione va in errore e in che momento compare l'errore?

ti tutto il work book? ho inserito il codice sotto dentro la cartella di lavoro

Codice: Seleziona tutto


Dim VorH   'In testa a ThisWorkbook /QuestaCartellaDiLavoro

'------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
VorH = Sheets("master").Visible
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = xlSheetVeryHidden
ThisWorkbook.Protect Password:="pippo"
End Sub

'------------
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = VorH
ThisWorkbook.Protect Password:="pippo"
Saved = True
End Sub


[Anthony47]

vorrei lo facesse prima che chiudi il foglio non quando salvi e sparisce

Intendi "prima di chiudere il file"? In questo caso tieni presente che non e' obbligatorio salvare il file quando viene chiuso, ma potrebbe essere stato salvato piu' volte precedentemente
E comunque l'evento BeforeSave nasconde il foglio, ma l'evento AfterSave lo ri-mostra, se era visibile

Mi interessa tutto il contenuto del modulo vba che si chiama o ThisWorkbook oppure QuestaCartellaDiLavoro; questo modulo dovrebbe contenere anche la Sub Workbook_Open

[Milanooooo]

il contenuto è scritto sopra c'è solo quello

[Anthony47]

c'è solo quello

E allora c'e' qualcosa che non va...
Eravamo partiti da un file che se aperto in sola lettura manteneva nascosto /nascondeva il foglio Master, e questo veniva gestito da una Sub Workbook_Open, e questo codice per funzionare deve essere inserito in un modulo particolare del vba che si chiama thisWorkbook oppure QuestaCartellaDiLavoro (per informazioni sulla struttura del vba, viewtopic.php?f=26&t=103893&p=647675#p647675)
Ora se questa Sub Workbook_Open non c'è più (assodato che prima c'era ed era nella posizione giusta, perche' faceva la sua funzione) o parliamo di un nuovo file o il codice della Sub Workbook_BeforeSave e Sub Workbook_AfterSave è stato inserito nel modulo sbagliato.
Guarda il link che ti ho appena dato per localizzare il modulo nel "progetto vba" del tuo file

[Milanooooo]

io ho salvato tutto questo codice dentro thisWorkbook oppure QuestaCartellaDiLavoro, gli altri mi da errore

potrei chiederi quale deve essere il codice completo da inserire in thisworkbbok- comprensivo di vorh?
grazie

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



questo codice mi da errore

Dim VorH 'In testa a ThisWorkbook /QuestaCartellaDiLavoro

'------------
Private Sub Workbook_BeforeSave( .....

[Anthony47]

In ThisWorkbook (o QuestaCartellaDiLavoro, dipende dalla versione Office che usi) devi metterci tutto questo:

Codice: Seleziona tutto

Dim VorH   'In testa a ThisWorkbook /QuestaCartellaDiLavoro

'------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
VorH = Sheets("master").Visible
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = xlSheetVeryHidden
ThisWorkbook.Protect Password:="pippo"
End Sub

'------------
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'
ThisWorkbook.Unprotect Password:="pippo"
Sheets("master").Visible = VorH
ThisWorkbook.Protect Password:="pippo"
Saved = True
End Sub


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



Se hai degli errori, spiega quando compaiono, quale riga va in errore e quale messaggio compare

[Milanooooo]

da questo errore error run tine 50290 metodo unprotect dell oggetto non riuscito e si blocca il foglio

sono andato avanti con f5

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'
ThisWorkbook.Unprotect Password:="pip"