chijanzen
超级版主
水晶 5373
发贴 1079
注册 2002-12-12
来自 TOSHIBA Satellite 31CT
状态 离线 |
|
第 3 帖 xiaog:
发生的原因(不要轻易尝试)
Sub NoMove()
For i = 1 To CommandBars.Count
If CommandBars(i).Visible Then
CommandBars(i).Protection = msoBarNoMove
End If
Next
End Sub
解决的方法
Sub NoProtection()
For i = 1 To CommandBars.Count
CommandBars(i).Protection = msoBarNoProtection
Next
End Sub
解决後,关闭Excel重新开启
|
| |
