-
Articoli
-
In un workbook ho molti fogli, più di 30
Molti di questi sono uguali come formato.
Dovrei fare alcuni cambiamenti in questi fogli uguali.
Manualmente è un pò lungo, è possibile con una macro?il nome foglio è quello in vba
all'avvio sproteggere questi fogli pw = 123456
foglio1
foglio2
foglio3
foglio4
foglio5
foglio6 (no)
foglio7
foglio8
foglio9
foglio10
foglio11
foglio12
foglio13
foglio14
foglio15
foglio16 (no)
fgolio17
foglio18all'allargare le colonne B:C a 25 per tutti questi fogli
cambiare la descrizione della cella C4 in = Data fine consegna
spero di essermi spiegato.
Grazie
Be' intanto prova a fare tu un tentativo e poi pubblica la macro, poi pensiamo a sistemarla.
Inoltre quando hai tempo, dai un riscontro anche alle richieste pregresse
Ciao, ho questa macro che sprotegge tutti i fogli all'avvio
Private Sub Workbook_Open() '-------------------------------------------------------------------------- 'sprotteggere tutti i fogli all'avvio Application.ScreenUpdating = False Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ' Controlla se il foglio è protetto prima di tentare di sbloccarlo If ws.ProtectContents Then ws.Unprotect Password:="123456" ' Inserisci la tua password qui, se ne hai una End If Next ws Application.ScreenUpdating = true '-------------------------------------------------------------------------- End SubMa la macro in post #54107 sprotegge tutti i fogli, deve farlo solo in alcuni.
Per il resto della modifica come scritto in post #54105 non so come fare
Ma le operazioni che chiedi bisogna eseguirle ogni qual volta si apre il file oppure una sola volta/al bisogno?
Di norma foglio e scritto con la "F" maiuscola
Sub Una_Volta_Solo() 'Sub Auto_Open()'Sub Workbook_Open() Application.ScreenUpdating = False Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Foglio6" And ws.Name <> "Foglio16" Then ' Controlla se il foglio è protetto prima di tentare di sbloccarlo If ws.ProtectContents Then ws.Unprotect Password:="123456" ' Inserisci la tua password qui, se ne hai una ws.Range("C4") = "Data fine consegna" ws.Columns("B:C").ColumnWidth = 25 'ws.protect Password:="123456" ' End If End If Next ws Application.ScreenUpdating = True End SubGrazie raffaele53
Login
Registrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)