Far funzionare macro in un foglio protetto

Question

Ciao a  tutti !!!

Ho delle macro perfettamente funzionanti che però non riesco a farle funzionare in un foglio excel che intendo proteggere bloccando determinate celle ma lasciando le macro funzionanti.

Se qualcuno gentilmente può modificarmi il testo VBA affinchè le macro possano funzionare anche con foglio bloccato.

Segue testo in VBA:

Sub ResetSpreadsheet()

Range("B4", "B300").ClearContents 

Columns("B:B").HorizontalAlignment = xlCenter 

Range("B4", "B512").Font.Bold = True 

Range("DD14").Value = 1# 

Range("DD9").Value = 3 

Range("DD10").Value = 0.5 

Range("DD11").Value = -50000 

End Sub

Sub macro_a()

Dim uriga As Long

uriga = Range("B" & Rows.Count).End(xlUp).Row + 1

If uriga = 2 Then

Range("B5") = "B"

Range("B5").Select

Else

Range("B" & uriga) = "B"

Range("B" & uriga).Select

End If

With Selection.Font

.Color = -16776961

.Name = "Tw Cen MT"

.Size = 16

End With

End Sub

Sub macro_b()

Dim uriga As Long

uriga = Range("B" & Rows.Count).End(xlUp).Row + 1

If uriga = 2 Then

Range("B5") = "P"

Range("B5").Select

Else

Range("B" & uriga) = "P"

Range("B" & uriga).Select

End If

With Selection.Font

.Color = -16776961

.Name = "Tw Cen MT"

.Size = 16

End With

End Sub

Answer 1

Ciao TORICAL,

Grazie mille per tutto !!!!

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Per chiudere questo thread e aiutare gli altri con un problema simile, ti chiedere gentilmente di contrssegnare il mio codice come Risposta.

===

Regards,

Norman

Answer 2

Ciao TORICAL,

Grazie Norman !!!!

Funziona perfettamente

Una ultima richiesta, volevo sapere se fosse possibile la protezione del contenuto del modulo VBA che ho appena compilato in modo tale che nessuno possa avervi accesso

• Alt+F11 per aprire l'editor di VBA
• Strumenti
• Proprietà di VBAProject
• Seleziona la scheda Protezione
• Seleziona l'opzione Proteggi progetto dalla visualizzazione

• Inserisce la tua password
• Confermi la password
• OK

Fai molta attenzione a non perdere la password!!

===

Regards,

Norman

![Immagine](https://learn-attachment.microsoft.com/api/attachments/dad0877b-bf30-446c-8432-cb77f70a6bee?platform=QnA

Answer 3

Ciao TORICAL,

Mi sono espresso male.

Mi riferivo al testo delle Macro VBA che ho copiato e incollato in precedenza.

Puoi cortesemente inserire quel tuo suggerimento nel testo VBA che ho incollato in modo tale che possa copiarlo e incollarlo direttamente ?

Prova:

Option Explicit

Sub ResetSpreadsheet()

Const sPassword As String = "Pippo" 

On Error GoTo XIT 

ActiveSheet.Unprotect Password:=sPassword 

Range("B4", "B300").ClearContents 

Columns("B:B").HorizontalAlignment = xlCenter 

Range("B4", "B512").Font.Bold = True 

Range("DD14").Value = 1# 

Range("DD9").Value = 3 

Range("DD10").Value = 0.5 

Range("DD11").Value = -50000 

XIT:

ActiveSheet.Protect Password:=sPassword 

End Sub

Sub macro_a()

Dim uriga As Long 

Const sPassword As String = "Pippo" 

On Error GoTo XIT 

ActiveSheet.Unprotect Password:=sPassword 

uriga = Range("B" & Rows.Count).End(xlUp).Row + 1 

If uriga = 2 Then 

    Range("B5") = "B" 

    Range("B5").Select 

Else 

    Range("B" & uriga) = "B" 

    Range("B" & uriga).Select 

End If 

With Selection.Font 

    .Color = -16776961 

    .Name = "Tw Cen MT" 

    .Size = 16 

End With 

XIT:

ActiveSheet.Protect Password:=sPassword 

End Sub

Sub macro_b()

Dim uriga As Long 

Const sPassword As String = "Pippo" 

On Error GoTo XIT 

ActiveSheet.Unprotect Password:=sPassword 

uriga = Range("B" & Rows.Count).End(xlUp).Row + 1 

If uriga = 2 Then 

    Range("B5") = "P" 

    Range("B5").Select 

Else 

    Range("B" & uriga) = "P" 

    Range("B" & uriga).Select 

End If 

With Selection.Font 

    .Color = -16776961 

    .Name = "Tw Cen MT" 

    .Size = 16 

End With 

XIT:

ActiveSheet.Protect Password:=sPassword 

End Sub

===

Regards,

Norman

Answer 4

Ciao TORICAL,

Ciao a  tutti !!!

Ho delle macro perfettamente funzionanti che però non riesco a farle funzionare in un foglio excel che intendo proteggere bloccando determinate celle ma lasciando le macro funzionanti.

Se qualcuno gentilmente può modificarmi il testo VBA affinchè le macro possano funzionare anche con foglio bloccato.

Segue testo in VBA:

Sub ResetSpreadsheet()

Range("B4", "B300").ClearContents

Columns("B:B").HorizontalAlignment = xlCenter

Range("B4", "B512").Font.Bold = True

Range("DD14").Value = 1#

Range("DD9").Value = 3

Range("DD10").Value = 0.5

Range("DD11").Value = -50000

End Sub

Sub macro_a()

Dim uriga As Long

uriga = Range("B" & Rows.Count).End(xlUp).Row + 1

If uriga = 2 Then

Range("B5") = "B"

Range("B5").Select

Else

Range("B" & uriga) = "B"

Range("B" & uriga).Select

End If

With Selection.Font

.Color = -16776961

.Name = "Tw Cen MT"

.Size = 16

End With

End Sub

Sub macro_b()

Dim uriga As Long

uriga = Range("B" & Rows.Count).End(xlUp).Row + 1

If uriga = 2 Then

Range("B5") = "P"

Range("B5").Select

Else

Range("B" & uriga) = "P"

Range("B" & uriga).Select

End If

With Selection.Font

.Color = -16776961

.Name = "Tw Cen MT"

.Size = 16

End With

End Sub

Prova il seguente approccio:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Const sPassword As String = "Pippo" 

On Error GoTo XIT 

ActiveSheet.Unprotect Password:=sPassword  

**'\\ Tuo codice** 

On Error GoTo 0 

XIT:

ActiveSheet.Protect Password:=sPassword 

End Sub

'<<========

===

Regards,

Norman

Answer 5

Ciao Norman, dato che non sono un esperto di VBA potresti cortesemente dirmi esattamente dove scrivere tutta quella stringa oppure ancor meglio se mi modifichi il file che ho inviato e me lo incolli in modo tale che io possa copiare e incollare il tutto modificato