diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index ad7f69c..b39ea64 100644
--- a/Redaction/Clean.xba
+++ b/Redaction/Clean.xba
@@ -1,12 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark58
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark59
 
 End Sub
 
 Sub cleanButton
 	Dim config As Object
 	config = initRedactionConfiguration()
+	If ThisComponent.isReadonly Then
+	  getTranslation(&quot;documentIsReadOnly&quot;)
+	  Exit Sub 
+	EndIf
 	If config.getPropertyValue(&quot;complexity&quot;) = &quot;user&quot; then
 		quietStartDialog()
 	Else
diff --git a/Redaction/Configuration.xba b/Redaction/Configuration.xba
index 783c0f4..853d15a 100644
--- a/Redaction/Configuration.xba
+++ b/Redaction/Configuration.xba
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
-Public Const redactionExtensionVersion = &quot;0.7.17&quot;
+Public Const redactionExtensionVersion = &quot;0.7.18&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object
diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba
index 0435dd0..073047f 100644
--- a/Redaction/Translations.xba
+++ b/Redaction/Translations.xba
@@ -202,6 +202,9 @@ Function getRussian(identifier As String) As String
          Exit Function
       Case &quot;dialogRussianFixesIPH&quot;
         getRussian = &quot;Исправления для текстов на русском&quot;
+        Exit Function
+      Case &quot;documentIsReadOnly&quot;
+        getRussian = &quot;Документ открыт только для чтения. Запуск чистки в данном режиме невозможен.&quot;
         Exit Function
 	  Case Else
 	    getRussian = &quot;Перевод не найден&quot;
@@ -387,6 +390,9 @@ Function getEnglish(identifier As String) As String
          Exit Function
       Case &quot;dialogRussianFixesIPH&quot;
         getEnglish = &quot;Corrections for texts in Russian&quot;
+        Exit Function
+      Case &quot;documentIsReadOnly&quot;
+        getEnglish = &quot;The document is read-only. Cleaning cannot be started in this mode.&quot;
         Exit Function
 	  Case Else
 	    getEnglish = &quot;No translation&quot;
@@ -572,6 +578,9 @@ Function getCroatian(identifier As String) As String
       Case &quot;dialogRussianFixesIPH&quot;
         getCroatian = &quot;Ispravci za tekstove na ruskom&quot;
         Exit Function
+      Case &quot;documentIsReadOnly&quot;
+        getCroatian = &quot;Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada.&quot;
+        Exit Function
     Case Else
 	    getCroatian = &quot;No translation&quot;
 	End Select  
@@ -756,6 +765,9 @@ Function getSerbian(identifier As String) As String
       Case &quot;dialogRussianFixesIPH&quot;
         getSerbian = &quot;Исправци за текстове на руском&quot;
         Exit Function
+      Case &quot;documentIsReadOnly&quot;
+        getSerbian = &quot;Документ је само за читање. Чишћење се не може покренути у овом режиму.&quot;
+        Exit Function
       Case Else
 	    getSerbian = &quot;No translation&quot;
 	End Select  
@@ -940,6 +952,9 @@ Function getBosnian(identifier As String) As String
       Case &quot;dialogRussianFixesIPH&quot;
         getBosnian = &quot;Ispravci za tekstove na ruskom&quot;
         Exit Function
+      Case &quot;documentIsReadOnly&quot;
+        getBosnian = &quot;Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada.&quot;
+        Exit Function
       Case Else
 	    getBosnian = &quot;No translation&quot;
 	End Select  
diff --git a/build.gradle b/build.gradle
index 7e979dd..caf0e61 100644
--- a/build.gradle
+++ b/build.gradle
@@ -1,4 +1,4 @@
-def releaseVersion = "0.7.17"
+def releaseVersion = "0.7.18"
 task oxt(type: Zip) {
    dependsOn = [ 'setVersion','setVersionInBasicCode' ]
    from './'
diff --git a/description.xml b/description.xml
index 7de4769..8f1fdc5 100644
--- a/description.xml
+++ b/description.xml
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction"/>
-  <version value="0.7.17"/>
+  <version value="0.7.18"/>
   <platform value="all"/>
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>
diff --git a/translations.ods b/translations.ods
index 9471dda..47a0abd 100644
Binary files a/translations.ods and b/translations.ods differ