Sviluppare funzionalita su Microsoft Office con VBA proteggo celle avviando macro

Login Registrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
  • Autore
    Articoli
  • #52428 Score: 0 | Risposta

    Frasubb
    Partecipante
      1 pt

      Ciao a tutti,

      ho l'esigenza di proteggere delle formule scritte nelle celle a1, d1 e range f5:f100.

      Come faccio a fare ciò, senza però proteggere il foglio di lavoro ?

      Esiste una macro che in apertura file protegge automaticamente queste celle ?

      Grazie mille a chi vorrà aiutarmi

      #52429 Score: 0 | Risposta

      alfrimpa
      Partecipante
        33 pts

        Lascia le celle da bloccare in stato “Bloccata” (Formato celle, Protezione) e sblocca tutte le altre poi proteggi il foglio.

        Per il codice ti basta il registratore di macro.

        #52430 Score: 0 | Risposta

        alexps81
        Moderatore
          58 pts

          Prova ad andare nell'angolo in alto del foglio, tra la colonna A e il rigo 1 e premi il tasto destro del mouse. Nel menù contestuale, scegli "Formato celle", poi portati nella scheda "Protezione" e togli al spunta a "Bloccata" ed infine "OK".

          Poi seleziona prima la cella "A1", tieni premuto CTRL e scegli la cella "D1" e sempre tenendo premuto CTRL scegli da "F5" a "F100". Con queste celle selezionate, premi tasto destro del mouse e ripeti come prima..."Formato celle", "Protezione", ma sta volta metti la spunta su "Bloccata" e infine "OK".

          A questo punto vai su "Proteggi foglio", se vuoi metti una Password e poi "OK".

          Vedi se ti può bastare.

          #52431 Score: 0 | Risposta

          alfrimpa
          Partecipante
            33 pts

            Forse ho scritto in arabo?

            Cosa ho detto di diverso?

            #52433 Score: 0 | Risposta

            rollis13
            Partecipante
              8 pts

              Non credo abbiate scritto in arabo ma sicuramente in una lingua straniera perché l'OP ha chiaramente chiesto:

              Come faccio a fare ciò, senza però proteggere il foglio di lavoro ?

              #52434 Score: 1 | Risposta

              Marius44
              Moderatore
                58 pts

                Ciao a tutti

                Prova con questa macro (da inserire nel Modulo del Foglio interessato)

                Option Explicit
                
                Private Sub Worksheet_Change(ByVal Target As Range)
                  If Not Intersect(Target, Range("A1,D1,F5:F100")) Is Nothing Then
                    MsgBox "Cella NON modificabile"
                    Application.EnableEvents = False
                    Application.Undo
                    Application.EnableEvents = True
                    Exit Sub
                  End If
                End Sub
                

                Fai sapere se è quello che volevi. Ciao,

                Mario

                #52441 Score: 0 | Risposta

                Frasubb
                Partecipante
                  1 pt

                  Grazie Mario,

                  era proprio ciò che ho richiesto e che serviva.   

                  Chiudo come risolta

                Login Registrati
                Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
                Rispondi a: proteggo celle avviando macro
                Gli allegati sono permessi solo ad utenti REGISTRATI
                Le tue informazioni: