diff --git a/moderncvheadvii.sty b/moderncvheadvii.sty
index c01a232..f0c259e 100644
--- a/moderncvheadvii.sty
+++ b/moderncvheadvii.sty
@@ -120,9 +120,10 @@
         \hspace*{\separatorcolumnwidth}\fi}%
   % optional QR for homepage (pre-rendering)
   \@initializebox{\makecvheadqrbox}%
-  \savebox{\makecvheadqrbox}{%
-    \ifthenelse{\isundefined{\@homepage}}{}{\tikz\node[inner sep=1ex,fill=white]{\qrcode[height=1.5cm]{\@homepage}};}%
-    }%
+  \if@headqr%
+    \savebox{\makecvheadqrbox}{%
+      \ifthenelse{\isundefined{\@homepage}}{}{\tikz\node[inner sep=1ex,fill=white]{\qrcode[height=1.5cm]{\@homepage}};}%
+    }\fi%
   % name and title (pre-rendering)
   \@initializelength{\makecvheaddetailswidth}\settowidth{\makecvheaddetailswidth}{\usebox{\makecvheaddetailsbox}}%
   \@initializelength{\makecvheadpicturewidth}\settowidth{\makecvheadpicturewidth}{\usebox{\makecvheadpicturebox}}%
diff --git a/moderncvstylecontemporary.sty b/moderncvstylecontemporary.sty
index c3411ba..a37c856 100644
--- a/moderncvstylecontemporary.sty
+++ b/moderncvstylecontemporary.sty
@@ -17,9 +17,11 @@
 \@initializecommand{\moderncvstyleheadoptions}{}
 \DeclareOption{left} {\edef\moderncvstyleheadoptions{\moderncvstyleheadoptions,left}}
 \DeclareOption{right}{\edef\moderncvstyleheadoptions{\moderncvstyleheadoptions,right}}
+\DeclareOption{qr}  {\edef\moderncvstyleheadoptions{\moderncvstyleheadoptions,qr}}
+\DeclareOption{noqr}{\edef\moderncvstyleheadoptions{\moderncvstyleheadoptions,noqr}}
 
 \DeclareOption*{}% avoid choking on unknown options
-\ExecuteOptions{left}
+\ExecuteOptions{left,qr}
 \ProcessOptions*\relax% \ProcessOptions* processes the options in the order provided (i.e., with the later ones possibly overriding the former ones), while \ProcessOptions processes them in the order of the package
 
 %-------------------------------------------------------------------------------