NascondiScopri colonne con password



  • Nascondi/Scopri colonne con password
    di yoghi (utente non iscritto) data: 08/11/2016 12:54:56

    Buongiorno, ho un file excel dove vorrei nascondere delle colonne e nel momento di scoprirle mi deve chiedere di inserire una password. è possibile? con macro oppure c'è un modo già implementato in excel? Grazie



  • di Michle (utente non iscritto) data: 08/11/2016 18:43:06

    Ciao
    prova così se riesci a risolvere qualcosa , ma è chiaro che deve essere tutto personalizzato


     
    Private Sub CommandButton1_Click()
    Value = InputBox("Inserisci password :", "pippo")  'la password è uguale a (pippo)
    If Value = "pippo" Then
    If CommandButton1.Caption = "Rimuovi password" Then
      ActiveSheet.Unprotect Password:="pippo"
      Range("A1:A3").Select '---------------------------range di righe da scoprire
      Selection.RowHeight = 15
      cancel = True
      CommandButton1.Caption = "Inserisci password"
    Else
      If Value = "pippo" Then
      Range("A1:A3").Select '---------------------------range di righe da nascondere
      Selection.RowHeight = 0
      ActiveSheet.Protect Password:="pippo"
      cancel = True
      CommandButton1.Caption = "Rimuovi password"
        End If
       End If
      End If
    If Value <> "pippo" Then MsgBox "Password errata": Exit Sub
    Range("A1").Select
    End Sub