AUTHORSVERSIONREPBACKDimw1AsWorksheetw2AsWorksheetDimiAsI
tegerjAsI
tegerkAsI
tegerlAsI
tegerDimmAsI
teger
AsI
tegeri1AsI
tegeri2AsI
tegerDimi3AsI
tegeri4AsI
tegeri5AsI
tegeri6AsI
tegerDimPWord1AsStri
gDimShTagAsBoolea
Wi
TagAsBoolea
Applicatio
Scree
Updati
gFalseWithActiveWorkbookWi
TagProtectStructureOrProtectWi
dowsE
dWith
fShTagFalseForEachw1I
WorksheetsShTagShTagOrw1ProtectCo
te
tsNextw1IfNotShTagA
dNotWi
TagThe
MsgBoxMSGNOPWORDS1vbI
formatio
HEADERExitSubE
dIfMsgBoxMSGTAKETIMEvbI
formatio
HEADERIfNotWi
TagThe
MsgBoxMSGNOPWORDS2vbI
formatio
HEADERElseO
ErrorResumeNextDodummydoloopFori65To66Forj65To66Fork65To66Forl65To66Form65To66Fori165To66Fori265To66Fori365To66Fori465To66Fori565To66Fori665To66For
32To126WithActiveWorkbookU
protectChriChrjChrk_ChrlChrmChri1Chri2_Chri3Chri4Chri5Chri6Chr

fIfProtectStructureFalseA
d_ProtectWi
dowsFalseThe
PWord1ChriChrjChrkChrl_ChrmChri1Chri2Chri3_Chri4Chri5Chri6Chr
MsgBoxApplicatio
SubstituteMSGPWORDFOUND1_