Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Clear password

Sub ClearPassword()     Dim myWorkbook As Workbook, pass As String     Set myWorkbook = ThisWorkbook     If myWorkbook.HasPassword Then         myWorkbook.Password = ""         Debug.Print "Password removed."     Else         Debug.Print "No password found."     End If End Sub