- Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
- if e.Range.Address="$A$1" then
- if e.Range.Text = "查阅" then
- AW.ActiveWorksheet.ProtectContents = false
- dim SP as SpreadsheetGear.Shapes.IShape = AW.ActiveWorksheet.Shapes("BT6")
- SP.Visible = false
- AW.ActiveWorksheet.ProtectContents = true
- end if
- end if
复制代码
|
|
hessen