Condividere su server un file protetto contenente una macro

Question

Ciao,

con l'aiuto di suggerimenti trovati in rete sono riuscita a creare un file composto da i fogli protetti con password che contiene una macro che raggruppa e separa le colonne su ogni sheet.

Ora avrei necessità di condividere su server il file ma la condivisione blocca il funzionamento della macro.

In sostanza:

• se condivido il file con la macro e con i fogli protetti da psw: non è possibile raggruppare/ separare colonne (la macro quindi non funziona e appare un messaggio di errore ( Errore di Run Time '1004' Errore definito dall'applicazione o dall'Oggetto);
• se condivido il file con macro eliminando la psw : tutti gli utenti che utilizzano in file possono raggruppare e separare le colonne;

Potete cortesemente suggerirmi una soluzione per far funzionare la macro che raggruppa e separa le colonne mantenendo i fogli protetti?

Grazie.

Answer 1

Ciao Mafalda_,

purtroppo nell'errore non si evince la riga interessata. 

ho caricato il file su onedrive al seguente link:

https://1drv.ms/f/s!Aiphn8kwACgGaDWw4FLbvect5oI

Ho scaricato il tuo file ma non riesco a replicare la tua esperienza: cliccando sulle icone con il segno più posso scoprire i due gruppi di colonne nascoste; allo stesso modo, cliccando sulle icone del segno meno, posso nascondere le relative colonne.

Aggiungerei che non mi sarei aspettato l'errore VBA indicato durante l'esecuzione di queste operazioni poiché non viene utilizzato alcun codice per nascondere o mostrare le colonne di interesse. Forse, tuttavia, il tuo file reale contiene ulteriore codice che non hai incluso nel file caricato.

===

Regards,

Norman

Answer 2

ciao Norman, 

purtroppo nell'errore non si evince la riga interessata. 

ho caricato il file su onedrive al seguente link:

https://1drv.ms/f/s!Aiphn8kwACgGaDWw4FLbvect5oI

grazie 1000

Answer 3

Ciao Mafalda_,

Grazie Norman, sto provando ma non riesco a far funzionare la macro.

Per il momento, ignora il mio suggerimento.

il codice che utilizzo (in "Questa cartella di lavoro") è il seguente, puoi dirmi come devo inserirlo in quello che mi hai inviato?

Private Sub Workbook_Open()

Dim i As Integer

For i = 1 To Sheets.Count

With Worksheets(i)

.Protect "zeta", userinterfaceonly:=True

.EnableOutlining = True

End With

Next i

End Sub

Quale riga di codice viene evidenziata nel punto dell'errore?

Ancora meglio, ti chiederei gentilmente di caricare il file problematico, dopo averlo depurato dei dati sensibili, su un servizio di condivisione di file, ad esempio Microsoft OneDrive o DropBox, e postare un link al file in una risposta qui.

Per caricare il file su Microsoft OneDrive, vedi:

   Condividere file e cartelle di OneDrive

Per caricare il file su DropBox, vedi:

Come faccio a condividere file e cartelle in Dropbox?

===

Regards,

Norman

Answer 4

Ciao Mafalda_,

con l'aiuto di suggerimenti trovati in rete sono riuscita a creare un file composto da i fogli protetti con password che contiene una macro che raggruppa e separa le colonne su ogni sheet.

Ora avrei necessità di condividere su server il file ma la condivisione blocca il funzionamento della macro.

In sostanza:

• se condivido il file con la macro e con i fogli protetti da psw: non è possibile raggruppare/ separare colonne (la macro quindi non funziona e appare un messaggio di errore ( Errore di Run Time '1004' Errore definito dall'applicazione o dall'Oggetto);
• se condivido il file con macro eliminando la psw : tutti gli utenti che utilizzano in file possono raggruppare e separare le colonne;

Potete cortesemente suggerirmi una soluzione per far funzionare la macro che raggruppa e separa le colonne mantenendo i fogli protetti?

Prova il seguente approcchio:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

  Const sPassword As String = "Pippo"             '<<=== Modifica

  On Error GoTo XIT

  ActiveSheet.Unprotect Password:=sPassword

  '\ Tuo codice qui

XIT:

  ActiveSheet.Protect Password:=sPassword

End Sub

'<<========

===

Regards,

Norman

Grazie Norman, sto provando ma non riesco a far funzionare la macro.

il codice che utilizzo (in "Questa cartella di lavoro") è il seguente, puoi dirmi come devo inserirlo in quello che mi hai inviato?

grazie

Private Sub Workbook_Open()

Dim i As Integer

For i = 1 To Sheets.Count

With Worksheets(i)

.Protect "zeta", userinterfaceonly:=True

.EnableOutlining = True

End With

Next i

End Sub

Answer 5

Ciao Mafalda_,

con l'aiuto di suggerimenti trovati in rete sono riuscita a creare un file composto da i fogli protetti con password che contiene una macro che raggruppa e separa le colonne su ogni sheet.

Ora avrei necessità di condividere su server il file ma la condivisione blocca il funzionamento della macro.

In sostanza:

• se condivido il file con la macro e con i fogli protetti da psw: non è possibile raggruppare/ separare colonne (la macro quindi non funziona e appare un messaggio di errore ( Errore di Run Time '1004' Errore definito dall'applicazione o dall'Oggetto);
• se condivido il file con macro eliminando la psw : tutti gli utenti che utilizzano in file possono raggruppare e separare le colonne;

Potete cortesemente suggerirmi una soluzione per far funzionare la macro che raggruppa e separa le colonne mantenendo i fogli protetti?

Prova il seguente approcchio:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

  Const sPassword As String = "Pippo"             '<<=== Modifica

  On Error GoTo XIT

  ActiveSheet.Unprotect Password:=sPassword

  '\ Tuo codice qui

XIT:

  ActiveSheet.Protect Password:=sPassword

End Sub

'<<========

===

Regards,

Norman