all'avvio modificare alcuni fogli

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

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
foglio18

all'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

 

[alexps81Moderatore alexps81 Karma: 58 pts]

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   

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

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 Sub

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Ma 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

[alexps81Moderatore alexps81 Karma: 58 pts]

Ma le operazioni che chiedi bisogna eseguirle ogni qual volta si apre il file oppure una sola volta/al bisogno?

[Raffaele53Partecipante Raffaele53 Karma: 23 pts]

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 Sub

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Grazie raffaele53

[Autore]

Articoli