【正文】
6 With ActiveWorkbook .Unprotect Chr(i) amp。 VERSION amp。 _ ALLCLEAR amp。 VERSION Const MSGONLYONE As String = Only structure / windows amp。 _ other passwords. amp。 DBLSPACE amp。 _ future use in other workbooks by same person who amp。 DBLSPACE amp。 _ DBLSPACE amp。 DBLSPACE amp。 VERSION Const MSGPWORDFOUND2 As String = You had a Worksheet amp。 _ Now to check and clear other passwords. amp。 _ the same person who set this password. amp。 DBLSPACE amp。 DBLSPACE amp。 DBLSPACE amp。 VERSION Const MSGPWORDFOUND1 As String = You had a Worksheet amp。 _ Just be patient! Make me a coffee! amp。s specification. amp。 _ depends on how many different passwords, the amp。 DBLSPACE amp。 VERSION Const MSGTAKETIME As String = After pressing OK button this amp。 _ Proceeding to unprotect sheets. amp。 _ workbook structure or windows. amp。 AUTHORS amp。t. Const MSGNOPWORDS1 As String = There were no passwords on amp。 Access and use of some data amp。 _ or data. amp。 _ put there for a reason. Don39。 _ DBLSPACE amp。 _ DBLSPACE amp。 DBLSPACE amp。 _ DBLSPACE amp。 The workbook should amp。 Please report failure amp。 _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPasswords User Message Const