WriteProtectRegion メソッド

オブジェクト：NativeWorksheetItem

• タイプ: Sub
• 構文: NativeWorksheetItem object.WriteProtectRegion(toggle boolean, left column variant, optional right column variant, optional top row variant, optional bottom row variant)

指定したワークシートの範囲を書き込み禁止に設定します。

Example

• 例

  Dim Worksheet As Object
  Dim FirstColumn, LastColumn As Long
  Option Explicit
  
  Sub Main
  Set Worksheet = ActiveDocument.CurrentDataItem
  FirstColumn = 0
  LastColumn = 1
  MacroDialog:
  Begin Dialog UserDialog 280,98,"Write Protect Columns", .DialogFunc ' %GRID:10,7,1,1
  PushButton 10,70,80,21,"Protected",.PushButton1
  PushButton 100,70,80,21,"Editable",.PushButton2
  PushButton 190,70,80,21,"Test",.PushButton3
  OKButton 190,7,80,21,.OKButton
  Text 10,10,90,21,"Start Column",.Text1
  TextBox 110,7,70,21,.StartCol
  Text 10,38,80,21,"End Column",.Text2
  TextBox 110,35,70,21,.EndCol
  End Dialog
  Dim dlg As UserDialog
  dlg.StartCol = CStr(FirstColumn + 1)
  dlg.EndCol = CStr(LastColumn + 1)
  Select Case Dialog(dlg)
  Case 1
  FirstColumn = CLng(dlg.StartCol) - 1
  LastColumn = CLng(dlg.EndCol) - 1
  Worksheet.WriteProtectRegion(True,FirstColumn,LastColumn)
  GoTo MacroDialog
  Case 2
  FirstColumn = CLng(dlg.StartCol) - 1
  LastColumn = CLng(dlg.EndCol) - 1
  Worksheet.WriteProtectRegion(False,FirstColumn,LastColumn)
  GoTo MacroDialog
  Case 3
  Dim Title$
  Title = "Are columns "+dlg.StartCol+" through "+dlg.EndCol+" write protected?"
  MsgBox Worksheet.IsRegionWriteProtected(FirstColumn,LastColumn), Title
  GoTo MacroDialog
  End Select
  End Sub
  
  Function DialogFunc%(DlgItem$, Action%, SuppValue%)
  Select Case Action%
  Case 1 ' Dialog box initialization
  DlgText "OKButton","Close"
  End Select
  End Function