Auto Column Width Macro/Protected vs. Unprotected Worksheet

[Mei_Mienzi]

Hello:

I have a spread sheet that I have made a macro for. That macro is a follows:

Private Sub Worksheet_Change(ByVal Target As Range)
Columns().AutoFit
End Sub

The two boxes above the macro are:
(Left Box) Worksheet (Right Box) Change

The macro works just fine, BUT I do have a problem. In order for the macro to run the worksheet has to be "unprotected." Is there any way to get this macro to run with the worksheet "protected?" If I leave it unprotected someone is going to louse it up. If left as is, in "protected" status, the macro will not run.

Any resolution?

Thanks,

 

[Smitty]

Welcome to the Board!

You can Unprotect/Reprotect in your code:

Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Unprotect "PasswordHere"  
    Columns().AutoFit
  ActiveSheet.Protect "PasswordHere"
End Sub

HTH